


Shiny : : CHEAT SHEET 


Building an App 


A Shiny app is a web page (ui) 
connected to a computer 
running a live R session (server). 


To generate the template, type shinyapp and press Tab in the RStudio IDE 


or go to File > New Project > New Directory > Shiny Web Application 


Sample size 





library (shiny) 





Customize the UI with Layout Functions 


1 <- fluidPage( l ; 
numericInput (inputId = "n", Add Inputs with *Input() functions 


"Sample size", value = 25), 
plotOutput(outputId = "hist") 


1000 
In ui nest R 
functions to 
build an HTML 
interface 











Histogram of rnorm(input$n) 
S 


N 














Add Outputs with *Output() functions 





) 
Users can manipulate the UI, 
which will cause the server to 
update the Ul’s displays (by 
running R code). 


Tallithecoruer server <- function(input, output, session) { 
output$hist <- renderPlot({ Wrap code in render*() functions 


how to render hist((rnorm(inputsn) ) : 
outputs and +) before saving to output 


respond to } 
inputs with R 


Frequency 








Refer to UI inputs with input$<id> 


Save your template as app.R. and outputs with output$<id> 


Keep your app in a directory 
along with optional extra files. 


ae es eee ee e | 
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rnorm(input$n) 









shinyApp(ui = ul, server = server) 
app-name 


app.R 
DESCRIPTION 


Call shinyApp() to combine ui and server into an interactive app! 


nein The directory name is the app name 
(optional) used in showcase mode 


(optional) directory of supplemental .R files that are sourced 
automatically, must be named "R" 


README 
R/ 


See annotated examples of Shiny apps by running 


runExample(<example name>). Run runExample() 


(optional) directory of files to share with web browsers (images, l 
with no arguments for a list of example names. 


CSS, .js, etc.), must be named "www" 





Launch apps stored in a directory with runApp(<path to directory>). 


Share 


Share your app in three ways: 


O u t D u tS render*() and *Output() functions work together to add R output to the UI. 

PPG E DT::renderDataTable(expr, options, 
searchDelay, callback, escape, env, quoted, 
outputArgs) 


dataTableOutput(outputid) 


1. Host it on shinyapps.io, a cloud based 
service from RStudio. To deploy Shiny apps: 





imageOutput(outputld, width, height, 
click, dblclick, hover, brush, inline) 


renderlmage(expr, env, quoted, deleteFile, 
outputArgs) 





L- Create a free or professional 
account at shinyapps.io = 








plotOutput(outputld, width, height, click, 
dblclick, hover, brush, inline) 


renderPlot(expr, width, height, res, ..., alt, env, 
quoted, execOnResize, outputArgs) 








fe Click the Publish icon in RStudio IDE, or run: 
rsconnect::deployApp("<path to directory>") 





renderPrint(expr, env, quoted, width, verbatimTextOutput(outputlid, 





2. Purchase RStudio Connect, a Siete se ara aa T EE E, placeholder) 
publishing platform for R and Python. 
rstudio.com/products/connect/ ee ="==| renderTable(expr, striped, hover, bordered, tableOutput(outputld) 








= spacing, width, align, rownames, colnames, 
— digits, na, ..., env, quoted, outputArgs) 





3. Build your own Shiny Server 
rstudio.com/products/shiny/shiny-server foo 


Estudio 





renderText(expr, env, quoted, outputArgs, sep) textOutput(outputld, container, inline) 


renderUI(expr, env, quoted, outputArgs) uiOutput(outputld, inline, container, ...) 


These are the core output types. See htmlwidgets.org for many more options. 























Inputs 


Collect values from the user. 





Access the current value of an input object with 
input$<inputid>. Input values are reactive. 


Action 


Link 


Choice 1 
Choice 2 
Choice 3 


Check me 


fe Mo Tu We Th fr Ge 


Choose File 





htmlOutput(outputld, inline, container, ...) 


© Choice A 
Choice B 
Choice C 


Choice 1 
Choice 2 


23 45 6 





Apply Changes 


Enter text 


actionButton(inputid, label, icon, 
width, ...) 


actionLink(inputld, label, icon, ...) 


checkboxGroupInput(inputid, 
label, choices, selected, inline, width, 
choiceNames, choiceValues) 


checkboxInput(inputid, label, value, 
width) 


datelInput(inputid, label, value, min, 
max, format, startview, weekstart, 
language, width, autoclose, 
datesdisabled, daysofweekdisabled) 


dateRangelnput(inputid, label, start, 
end, min, max, format, startview, 
weekstart, language, separator, width, 


autoclose) 


fileInput(inputid, label, multiple, 
accept, width, buttonLabel, placeholder) 


numericinput(inputid, label, value, 
min, max, step, width) 


passwordinput(inputid, label, value, 
width, placeholder) 


radioButtons(inputid, label, 
choices, selected, inline, width, 
choiceNames, choiceValues) 


selectInput(inputid, label, choices, 
selected, multiple, selectize, width, size) 
Also selectizeInput() 


sliderInput(inputid, label, min, max, 
value, step, round, format, locale, ticks, 
animate, width, sep, pre, post, 
timeFormat, timezone, dragRange) 


submitButton (text, icon, width) 
(Prevent reactions for entire app) 


textInput(inputld, label, value, width, 
placeholder) Also textArealnput() 
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Reactivity 


Reactive values work together with reactive functions. Call a reactive value from within the arguments of one 
of these functions to avoid the error Operation not allowed without an active reactive context. 


Perform 
side effects 


observe(code) 





input$x 





Create your own 
reactive values 





CREATE YOUR OWN REACTIVE VALUES 
*Input() functions 
(see front page) 


# xInput() example 


ui <- fluidPage( 
textInput("a" P we š WAM) 
) 


Each input function creates 
a reactive value stored as 
inputS<inputid>. 


#reactiveVaLlues example 


reactiveValues(._ ) 


server a 
einen) peaks evel ie A Creates a list of reactive 
TY ecumbee ew vevatuesO | values whose values you 
can set. 





CREATE REACTIVE EXPRESSIONS 
reactive(x, env, quoted, 


Library (shiny) 
label, domain) 


ui <- fluidPage( 
textInput("a","","A"), 
textInput("z","","Z"), 


Reactive expressions: 
textOutput("b") ) 


e cache their value to 
reduce computation 
e can be called elsewhere 


server <- 
function(input, output) { 
re <- reactive({ 


paste(input$a, input$z)}) |° Notify dependencies 
output$b <- renderText({ 


nae when invalidated 
}) Call the expression with 


a Beever) function syntax, e.g. re(). 





REACT BASED ON EVENT 

eventReactive(eventExpr, 
valueExpr, event.env, 
event.quoted, value.env, 
value.quoted, ..., label, 
domain, ignoreNULL, 


ignorelnit) 


Library (shiny) 


ui <- fluidPage( 
textInput("a","","A"), 
actionButton("go","Go") , 
ee 


server <- 
function (input, output) { ; 
re <- eventReactive( Creates reactive 
input$go, {input$a} ) f : 
outputee 2 rendertext({ | &XPression with code in 
re() 2nd argument that only 
invalidates when reactive 
values in 1st argument 


change. 


shinyApp(ui, server) 





tes 


Schedule up 


ee React based 
MT on event 


Create reactive 
expressions 


Remove reactivity 


reactive(code) Sy ame! output$y 


Render 
reactive output 


RENDER REACTIVE OUTPUT 
render*() functions 


library (shiny) (see front page) 


ui <- fluidPage( 
textInput("a","","A"), 
textOutput("b") 

) 


Builds an object to 
display. Will rerun code in 
body to rebuild the object 
whenever a reactive value 
in the code changes. 


server <- 
function(input, output) { 
output$b <- 


Save the results to 
output$<outputld>. 





shinyApp(ui, server) 


PERFORM SIDE EFFECTS 
observeEvent(eventExpr, 
handlerExpr, event.env, 
event.quoted, handler.env, 
handler.quoted, ..., label, 
suspended, priority, domain, 

autoDestroy, ignoreNULL, 
ignorelnit, once) 


Library (shiny) 


ui <- fluidPage( 
textInput("a","","A"), 
actionButton("go","Go") 


server <- 
function(input,output){ 
observeEvent(input$go,{ . 
print (input$a) Runs code in 2nd 
}) argument when reactive 
values in 1st argument 
change. See observe() for 


alternative. 





shinyApp(ui, server) 


REMOVE REACTIVITY 


Library (shiny) 


ui <- fluidPage( 
textInput("a","","A"), 
textOutput("b") 

) 


isolate(expr) 


Runs a code block. 
Returns a non-reactive 
copy of the results. 


server <- 
function(input, output) { 
outputsb <- 
renderText({ 
isolate({input$a}) 
~ 


shinyApp(ui, server) 









U | - An app’s UI is an HTML document. 
Use Shiny’s functions to assemble this HTML with R. 


fluidPage ( 


textInput("a","") Returns 
oN‘ HTML 
## <div class="container-fluid"> 


## <div class="form-group shiny-input-container"> 


#H <label for="a"></label> 

## <input id="a" type="text" 

## class="form-control" value=""/> 
HH </div> 

## </div> 





HTML Add static HTML elements with tags, a list 
of functions that parallel common HTML 
tags, e.g. tags$a(). Unnamed arguments 
will be passed into the tag; named 
arguments will become tag attributes. 


Run names(tags) for a complete list. 
tags$h1("Header") -> <h1>Header</h1> 


The most common tags have wrapper functions. You 
do not need to prefix their names with tags$ 
ui <- fluidPage( 
hi("Header 1"), Header 1 
hr(), 
br(), 
p(strong("bold")), bold 
p(em("italic")), 
p(code("code")), 
a(href="", "Link"), code 
HTML("<p>Raw html</p>") link 


Raw html 


italic 





Ess 

To include a CSS file, use includeCSS(), or 
1. Place the file in the www subdirectory 
2. Link to it with: 





tagsShead(tags$Slink(rel = "stylesheet", 
type = "text/css", href = "<file name>") ) 
JS 
To include JavaScript, use includeScript() or 
1. Place the file in the www subdirectory 
2. Link to it with: 


tags$head(tags$script(src = "<file name>")) 


IMAGES To include an image: 


© 


1. Place the file in the www subdirectory 
2. Link to it with img(src="<file name>") 





Themes 


Use the bslib package to add existing themes to 
your Shiny app ui, or make your own. 


Library (bslib) 
ui <- fluidPage( 
theme = bs_theme( 











bootswatch = "darkly", 





























bootswatch_themes() Get a list of themes. 









Layouts 


Combine multiple elements 
into a "single element" that 
has its own properties with a 
panel function, e.g. 


wellPanel( 
dateInput("a", ""), 
submitButton() 
) 
v absolutePanel() navlistPanel() 
conditionalPanel() sidebarPanel() 
2015-08-10 fixedPanel() tabPanel() 
headerPanel() tabsetPanel() 
inputPanel() titlePanel() 
mainPanel() wellPanel() 





Organize panels and elements into a layout with a 
layout function. Add elements as arguments of the 
layout functions. 


sidebarLayout() 


ui <- fluidPage( 
sidebarLayout( 
sidebarPanel(), 
mainPanel() 





fluidRow() 


ui <- fluidPage( 
fluidRow(column(width = 4), 
column(width = 2, offset = 3)), 
fluidRow(column(width = 12)) 


) 


Also flowLayout(), splitLayout(), verticalLayout(), 
fixedPage(), and fixedRow/(). 





Layer tabPanels on top of each other, 
and navigate between them, with: 


ui <- fluidPage( tabsetPanel( wbi b2  tb3 
tabPanel("tab 1", "contents"), 
tabPanel("tab 2", "contents"), 
tabPanel("tab 3", "contents"))) 


contents 


ui <- fluidPage( navlistPanel( 
tabPanel("tab 1", "contents"), 
tabPanel("tab 2", "contents"), 
tabPanel("tab 3", "contents"))) 





ui <- navbarPage(title = "Page", 
tabPanel("tab 1", "contents"), — 
tabPanel("tab 2", "contents"), 
tabPanel("tab 3", "contents")) 


Build your own theme by customizing individual 
arguments. 
bs_theme(bg = "#558AC5", 









































fg = "#F9BO2D", 
i) 
?bs_theme for a full list 
of arguments. 





bs_themer‘() Place within the server function to 
use the interactive theming widget. 
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